object WebModule5: TWebModule5
  OldCreateOrder = False
  Actions = <
    item
      Name = 'pages'
      OnAction = WebModule5pagesAction
    end
    item
      Name = 'page'
      PathInfo = '/page'
      OnAction = WebModule5pageAction
    end
    item
      Name = 'addcomment'
      PathInfo = '/addcomment'
      OnAction = WebModule5commentAction
    end
    item
      Name = 'getcomment'
      PathInfo = '/getcomment'
      OnAction = WebModule5getcommentAction
    end
    item
      Name = 'getimage'
      PathInfo = '/getimage'
      OnAction = WebModule5getimageAction
    end
    item
      Name = 'getvideo'
      PathInfo = '/getvideo'
      OnAction = WebModule5getvideoAction
    end
    item
      Name = 'recentpost'
      PathInfo = '/recentposts'
      OnAction = WebModule5recentpostAction
    end
    item
      Name = 'adduser'
      PathInfo = '/adduser'
      OnAction = WebModule5adduserAction
    end
    item
      Name = 'login'
      PathInfo = '/login'
      OnAction = WebModule5loginAction
    end
    item
      Name = 'edituser'
      PathInfo = '/edituser'
      OnAction = WebModule5edituserAction
    end
    item
      Name = 'perfil'
      PathInfo = '/perfil'
      OnAction = WebModule5perfilAction
    end
    item
      Name = 'myposts'
      PathInfo = '/myposts'
      OnAction = WebModule5mypostsAction
    end>
  Height = 366
  Width = 562
  object IBDatabase1: TIBDatabase
    Connected = True
    DatabaseName = 'c:\teste.fdb'
    Params.Strings = (
      'user_name=SYSDBA'
      'password=masterkey')
    LoginPrompt = False
    Left = 48
    Top = 32
  end
  object IBQuery1: TIBQuery
    Database = IBDatabase1
    Transaction = IBTransaction1
    SQL.Strings = (
      'select * from TPAGE')
    GeneratorField.Field = 'HANDLE'
    GeneratorField.Generator = 'GEN_PAGES_ID'
    GeneratorField.ApplyEvent = gamOnServer
    Left = 176
    Top = 16
    object IBQuery1ID: TIBStringField
      FieldName = 'ID'
      Origin = '"TPAGE"."ID"'
      Size = 50
    end
    object IBQuery1USER_NAME: TIBStringField
      FieldName = 'USER_NAME'
      Origin = '"TPAGE"."USER_NAME"'
      Size = 40
    end
    object IBQuery1TITLE: TIBStringField
      FieldName = 'TITLE'
      Origin = '"TPAGE"."TITLE"'
      Size = 150
    end
    object IBQuery1ORIGINAL_LINK: TIBStringField
      FieldName = 'ORIGINAL_LINK'
      Origin = '"TPAGE"."ORIGINAL_LINK"'
      Size = 1000
    end
    object IBQuery1KIND: TIBStringField
      FieldName = 'KIND'
      Origin = '"TPAGE"."KIND"'
      FixedChar = True
      Size = 10
    end
    object IBQuery1HANDLE: TIntegerField
      FieldName = 'HANDLE'
      Origin = '"TPAGE"."HANDLE"'
      Required = True
    end
    object IBQuery1FK_USER: TIntegerField
      FieldName = 'FK_USER'
      Origin = '"TPAGE"."FK_USER"'
    end
  end
  object IBTransaction1: TIBTransaction
    Active = True
    DefaultDatabase = IBDatabase1
    DefaultAction = TACommitRetaining
    Left = 96
    Top = 128
  end
  object TPages: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider1'
    Left = 160
    Top = 80
    object TPagesID: TWideStringField
      FieldName = 'ID'
      Origin = '"TPAGE"."ID"'
      Size = 50
    end
    object TPagesUSER_NAME: TWideStringField
      FieldName = 'USER_NAME'
      Origin = '"TPAGE"."USER_NAME"'
      Size = 40
    end
    object TPagesTITLE: TWideStringField
      FieldName = 'TITLE'
      Origin = '"TPAGE"."TITLE"'
      Size = 150
    end
    object TPagesORIGINAL_LINK: TWideStringField
      FieldName = 'ORIGINAL_LINK'
      Origin = '"TPAGE"."ORIGINAL_LINK"'
      Size = 1000
    end
    object TPagesKIND: TWideStringField
      FieldName = 'KIND'
      Origin = '"TPAGE"."KIND"'
      FixedChar = True
      Size = 10
    end
    object TPagesHANDLE: TIntegerField
      FieldName = 'HANDLE'
      Origin = '"TPAGE"."HANDLE"'
      Required = True
    end
    object TPagesFK_USER: TIntegerField
      FieldName = 'FK_USER'
      Origin = '"TPAGE"."FK_USER"'
    end
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = IBQuery1
    Options = [poAllowCommandText, poUseQuoteChar]
    Left = 216
    Top = 128
  end
  object THandleDS: TIBQuery
    Database = IBDatabase1
    Transaction = IBTransaction1
    SQL.Strings = (
      'select * from SYS_HANDLE')
    Left = 368
    Top = 32
  end
  object TIBComments: TIBQuery
    Database = IBDatabase1
    Transaction = IBTransaction1
    Active = True
    SQL.Strings = (
      'select * from TCOMMENTS')
    Left = 56
    Top = 280
    object TIBCommentsHANDLE: TIntegerField
      FieldName = 'HANDLE'
      Origin = '"TCOMMENTS"."HANDLE"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object TIBCommentsTPAGE: TIntegerField
      FieldName = 'TPAGE'
      Origin = '"TCOMMENTS"."TPAGE"'
    end
    object TIBCommentsUSER_NAME: TIBStringField
      FieldName = 'USER_NAME'
      Origin = '"TCOMMENTS"."USER_NAME"'
      Size = 40
    end
    object TIBCommentsCOMMENT: TIBStringField
      FieldName = 'COMMENT'
      Origin = '"TCOMMENTS"."COMMENT"'
      Size = 500
    end
    object TIBCommentsDATE: TDateTimeField
      FieldName = 'DATE'
      Origin = '"TCOMMENTS"."DATE"'
    end
    object TIBCommentsFK_USER: TIntegerField
      FieldName = 'FK_USER'
      Origin = '"TCOMMENTS"."FK_USER"'
    end
  end
  object TComments: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider2'
    Left = 232
    Top = 280
    object TCommentsHANDLE: TIntegerField
      FieldName = 'HANDLE'
      Required = True
    end
    object TCommentsTPAGE: TIntegerField
      FieldName = 'TPAGE'
    end
    object TCommentsUSER_NAME: TWideStringField
      FieldName = 'USER_NAME'
      Size = 40
    end
    object TCommentsCOMMENT: TWideStringField
      FieldName = 'COMMENT'
      Size = 500
    end
    object TCommentsDATE: TDateTimeField
      FieldName = 'DATE'
    end
    object TCommentsFK_USER: TIntegerField
      FieldName = 'FK_USER'
    end
  end
  object DataSetProvider2: TDataSetProvider
    DataSet = TIBComments
    Options = [poAllowCommandText, poUseQuoteChar]
    Left = 144
    Top = 280
  end
  object TUser: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider3'
    Left = 456
    Top = 272
  end
  object DataSetProvider3: TDataSetProvider
    DataSet = TIBUser
    Options = [poAllowCommandText, poUseQuoteChar]
    Left = 456
    Top = 216
  end
  object TIBUser: TIBQuery
    Database = IBDatabase1
    Transaction = IBTransaction1
    Left = 392
    Top = 248
  end
  object DataSetProvider4: TDataSetProvider
    DataSet = THandleDS
    Options = [poAllowCommandText, poUseQuoteChar]
    Left = 448
    Top = 72
  end
  object TSearchDS: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider4'
    Left = 368
    Top = 96
  end
end
